home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / shadow.doc < prev    next >
Internet Message Format  |  1995-03-31  |  11KB
  1. From: bson@rice-chex.ai.mit.edu (Jan Brittenson) 
  2. Newsgroups: comp.sys.hp48 
  3. Subject: Shadowing Memory 
  4. Date: 9 Sep 91 08:24:38 GMT 
  5.  
  6. Here are two small utilities, that let you map around your cards. 
  7.  
  8. [Note: Both SHADOW and ZEROMAP are contained in the SHADOW directory 
  9.  on this disk.  -jkh-] 
  10.  
  11.    SHADOW maps a card to shadow another device. The contents of the 
  12. device are first copied to the card so you can modify them. Of course, 
  13. if your card is ROM (or write-protected RAM), then the copy is ignored 
  14. and the contents of the card will effectively overlay those of the 
  15. second device. It takes two arguments: the address of your card and 
  16. the destination address. 
  17.  
  18.  
  19.     SHADOW        Copy and map card to shadow another device 
  20.  
  21.         #card_address #destination_address  --> 
  22.  
  23.  
  24.  
  25.    ZEROMAP is similar to SHADOW, except the contents of the card are 
  26. cleared instead of copied. 
  27.  
  28.  
  29. Some examples: 
  30.  
  31.     #80000 #10000 SHADOW 
  32.  
  33.     Shadow parts of the system ROM (#10000-#1ffff) with a copy 
  34.     in the card in port 1. This would allow full MLDB 
  35.     breakpointing in the area 10000-1ffff. It could also be 
  36.     used from a program that subsequently modifies the "ROM." 
  37.  
  38.  
  39.     #10000 #80000 ZEROMAP 
  40.  
  41.     Restore from previous example. If we didn't clear the card 
  42.     we would lose parts of it, and the next time we yanked it 
  43.     and plugged it back in, we would get an "Invalid card data" 
  44.     error. This has to do with the sort of trickery SHADOW 
  45.     resorts to in order to avoid "Invalid card data" errors. 
  46.  
  47.      
  48.     #C0000 #C0000 ZEROMAP 
  49.  
  50.     Clear card in port 2. 
  51.  
  52.  
  53. About ports and such: 
  54.  
  55.    A single plug-in card will always be in port 1, even if plugged 
  56. into connector 2. Port 1 is at #80000 and port 2 at #C0000. There is 
  57. also a third config table entry which I'm not sure what it's used for, 
  58. maybe a debug ROM. The default address for the third "port" is #D0000. 
  59. The system ROM is in the region #00000-#6FFFF.  
  60.  
  61.    Notice that I will not be responsible for any data or other forms 
  62. of lossage. If properly used, you should be able to work miracles. 
  63. Improperly used, you better have you backups readily available! Also, 
  64. using these routines assumes a certain knowledge of HP-48SX internals. 
  65. Do not attempt to store data on a card remapped by means of the 
  66. routines included here: that is almost guaranteed lossage. 
  67.  
  68. The only argument checking performed is simple type checking. 
  69.  
  70. Have fun, 
  71.                         -- Jan Brittenson 
  72.                            bson@ai.mit.edu 
  73.  
  74.  
  75.  O  / 
  76.   \/ 
  77.   /\  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  78.  O  \ 
  79.  
  80.  
  81. ; shadow.star - shadow device with port 
  82. ; 
  83. ; Jan Brittenson, September 1991 
  84. ; This program is in the public domain. 
  85. ; Assemble with (in order) hp48.star and stdsyms.star 
  86.  
  87.     radix    0x10 
  88.     header 
  89.  
  90. ; SHADOW 
  91. ; 
  92. ; In: 
  93. ;    2: old address (short) 
  94. ;    1: new address (short) 
  95.  
  96. conf_tbl = 70428            ; System configuration table 
  97.  
  98.  
  99.     rpl 
  100.       Prg 
  101.         Need_2_args 
  102.         Switch_on_argtype 
  103.         _Short 0xbb            ; Two binary integers 
  104.         Prg 
  105.            Two_bins_to_shorts    ; Convert addresses to shorts 
  106.     endrpl 
  107.  
  108.  
  109.     code 
  110.  
  111. ; Pop address, find fake pointer (all pages have one) 
  112.  
  113.     call    getshort        ; A.A = shadow address 
  114.     move    a, r2 
  115.     call    getshort        ; A.A = RAM address 
  116.     swap    a, r2            ; R2.A = RAM address 
  117.  
  118.     call    save_regs        ; Save system RPL registers 
  119.  
  120.     move    3, p     
  121.     clr.wp    a            ; Clear low 4 nybbles of address 
  122.     clr    p 
  123.  
  124.     move    a, r0            ; R0.A = shadow location 
  125.     move    a, d0 
  126.     dec    d0 
  127. $1: 
  128.     inc    d0 
  129.     move.a    @d0, c 
  130.     brnz.a    c, $1 
  131.     swap    c, d0            ; C.A = fake config address 
  132.     move    c, r1            ; R1.A = fake config address 
  133.  
  134. ; Copy ROM and remap RAM 
  135.  
  136.     clrb    0xf, st            ; Disable interrupts 
  137.  
  138.     move    r2, c            ; C.A = RAM adress 
  139.     move    c, d1 
  140.     move.p5    10000, c        ; 32kB 
  141.     move    a, d0            ; D0 = shadow page address 
  142.     call    blkcopy            ; Copy 32kB from #10000->#80000 
  143.  
  144.     move    r2, c            ; C.A = RAM adress 
  145.     uncnfg                ; Unconfig RAM card 
  146.     move.p5    0xf0000, c        ; 32kB Mask 
  147.     config 
  148.     move    r0, c            ; New location 
  149.     config 
  150.  
  151. ; Update system config table 
  152.  
  153.     move    r1, c            ; Value to stick in config table 
  154.     move.5    conf_tbl+^d10, d0    ; D0 = & P1 config address 
  155.     move.a    c, @d0            ; Update config address 
  156.  
  157.     call    calc_conf_crc        ; Calculate config table CRC 
  158.                     ; D0 = & CRC, C.A = new CRC 
  159.     move.4    c, @d0            ; CRC = new CRC 
  160.  
  161. ; Finished 
  162.  
  163.     setb    0xf, st            ; Enable interrupts 
  164.     brbc    0xe, st, $100        ; No interrupts occured 
  165.     rsi                ; Service pending interrupts 
  166. $100: 
  167.     jump    rr_rplcont        ; Restore RPL registers and continue 
  168.  
  169.     even 
  170.     endcode 
  171.  
  172.     rpl 
  173.       EndObj 
  174.     EndObj 
  175.     endrpl 
  176.  
  177.  
  178.  O  / 
  179.   \/ 
  180.   /\  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  181.  O  \ 
  182.  
  183. ; zeromap.star - remap and clear port 
  184. ; 
  185. ; Jan Brittenson, Septembet 1991 
  186. ; This program is in the public domain. 
  187. ; Assemble with (in order): hp48.star and stdssyms.star 
  188.  
  189.     radix    0x10 
  190.     header 
  191.  
  192. ; ZEROMAP 
  193. ; 
  194. ; In: 
  195. ;    2: old address (short) 
  196. ;    1: new address (short) 
  197.  
  198. conf_tbl = 70428            ; System configuration table 
  199.  
  200.  
  201.     rpl 
  202.       Prg 
  203.         Need_2_args 
  204.         Switch_on_argtype 
  205.         _Short 0xbb            ; Two binary integers 
  206.         Prg 
  207.            Two_bins_to_shorts    ; Convert addresses to shorts 
  208.     endrpl 
  209.  
  210.  
  211.     code 
  212.  
  213. ; Pop address, find fake pointer (all pages have one) 
  214.  
  215.     call    getshort        ; A.A = shadow address 
  216.     move    a, r2 
  217.     call    getshort        ; A.A = RAM address 
  218.     swap    a, r2            ; R2.A = RAM address 
  219.  
  220.     call    save_regs        ; Save system RPL registers 
  221.  
  222.     move    3, p     
  223.     clr.wp    a            ; Clear low 4 nybbles of address 
  224.     clr    p 
  225.  
  226.     move    a, r0            ; R0.A = shadow location 
  227.  
  228. ; Clear remap RAM 
  229.  
  230.     clrb    0xf, st            ; Disable interrupts 
  231.  
  232.     move    r2, c            ; C.A = RAM adress 
  233.     move    c, d1            ; D0 = RAM address 
  234.     move.p5    10000, c        ; 32kB 
  235.     call    blkzero            ; Clear RAM 
  236.  
  237.     move    r2, c            ; C.A = RAM adress 
  238.     uncnfg                ; Unconfig RAM card 
  239.     move.p5    0xf0000, c        ; 32kB Mask 
  240.     config 
  241.     move    r0, c            ; New location 
  242.     config 
  243.  
  244. ; Update system config table 
  245.  
  246.     move.5    conf_tbl+^d10, d0    ; D0 = & P1 config address 
  247.     move.a    c, @d0            ; Update config address 
  248.  
  249.     call    calc_conf_crc        ; Calculate config table CRC 
  250.                     ; D0 = & CRC, C.A = new CRC 
  251.     move.4    c, @d0            ; CRC = new CRC 
  252.  
  253. ; Finished 
  254.  
  255.     setb    0xf, st            ; Enable interrupts 
  256.     brbc    0xe, st, $100        ; No interrupts occured 
  257.     rsi                ; Service pending interrupts 
  258. $100: 
  259.     jump    rr_rplcont        ; Restore RPL registers and continue 
  260.  
  261.     even 
  262.     endcode 
  263.  
  264.     rpl 
  265.       EndObj 
  266.     EndObj 
  267.     endrpl 
  268.  
  269.  
  270.  O  / 
  271.   \/ 
  272.   /\  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  273.  O  \ 
  274.  
  275. ;; stdsyms.star - some common symbols 
  276.  
  277.     nlistblock 
  278.  
  279.     radix    0x10 
  280.  
  281. Not_bool = 3af2 
  282. Doerr_string = 15048 
  283. Text = 1314d 
  284. Toggle_text = 132c5 
  285. Cmd_DOERR = 1a339 
  286. Cmd_EVAL = 1a3be 
  287. Cmd_PATH = 1a125 
  288. Cmd_HOME = 1a140 
  289. Home = 8d92 
  290. Path = 1848c 
  291. Purge_global = 1854f 
  292. Sto_any_global = 18513 
  293. Rcl_global = 797b 
  294. Cmd_STO = 20ccd 
  295. GROB_null = 505b2 
  296. OpenIO = 2eb37 
  297. CloseIO = 315c6 
  298. Freeze = 142fb 
  299. Cllcd = 5046a 
  300. Eval = 18eba 
  301. Eval_prev_context = 6fd1 
  302. Push_next = 6e97 
  303. Char_000 = 6541e 
  304. Add_string_char = 52ee 
  305. Add5 = 6258a 
  306. Inc = 3def 
  307. Dup_Inc = 628eb 
  308. Short_200h = 64f0e 
  309. Short_100h = 64e32 
  310. Short_60h = 64c8e 
  311. Short_c0h = 64dd8 
  312. Short_bbh = 64dce 
  313. Short_31h = 64b44 
  314. String_to_grob_pitch8 = 11d00 
  315. Turn_menu_off = 4e2cf 
  316. Nullstring = 55df 
  317. Nullstring_copy = 1613f 
  318. Program_null = 40788 
  319. Realloc = 61c1c 
  320. Copy = 6657 
  321. Num = 1410f 
  322. Add = 3dbc 
  323. Add_string_string = 5193 
  324. LeftLess1_string_short = 63259 
  325. ArrayTo_array = 1d0ab 
  326. ArrayTo = 1d0ab 
  327. Dec = 3e0e 
  328. Dup = 3188 
  329. EndObj = 312b 
  330. Equalp = 3d19 
  331. Nonzerop = 3cc7 
  332. No_args = 18a15 
  333. Zerop = 3ca6 
  334. Dup_Zerop = 62266 
  335. Get_2Lastlocal = 613e7 
  336. Get_3lastlocal = 6140e 
  337. Get_4lastlocal = 61438 
  338. Get_lastlocal = 613b6 
  339. If_then_else = 61ad8 
  340. If_true_then = 619bc 
  341. Dup_If_zero_then_exec = 618a8 
  342. If_User_flag_then_else = 63ed9 
  343. Pview_short_short = 4f052 
  344. Listob = 2a74 
  345. ListAlgPrgTo = 54af 
  346. ListTo = 54af 
  347. ListTo_StoreLocals = 74d0 
  348. Local_M = 0xe4c1 
  349. Local_N = 0xe4ae 
  350. Local_S = 41bea 
  351. Mul = 3ec2 
  352. Mul2 = 3e6f 
  353. Mul_array_real = 362dc 
  354. Next = 7334 
  355. Prg = 2d9d 
  356. True = 3a81 
  357. False = 3ac0 
  358. Bin_to_short = 5a03 
  359. Two_Bins_to_shorts = 4f3d1 
  360. Real_to_short = 18cea 
  361. Real_to_short_Swap = 62e7b 
  362. Swap_Over = 61380 
  363. Roll = 3325 
  364. Drop = 3244 
  365. Swap_Drop = 60f9b 
  366. Drop2 = 3258 
  367. Drop4 = 60f7e 
  368. Xlib_to_Rpl = 7e99 
  369. Error_Bad_arg_type = 18cb2 
  370. Error_Undef_Name = 18c92 
  371. Short_0bh = 405d 
  372. Clear_lastargs = 4d33 
  373. Reset_lastargs = 53842 
  374. Need_1_arg = 18ab2 
  375. Need_2_args = 18a8d 
  376. Need_4_args = 18b9f 
  377. SL_Need_1_arg = 18aa5 
  378. Switch_on_argtype = 18fb2 
  379. SL_Switch_2_argtypes = 18edf 
  380. SL_Switch_on_argtype = 18ece 
  381. SL_Switch_4_argtypes = 18f01 
  382. SaveLast_Need_1_arg = 18aa5 
  383. Lastkey = 4714 
  384. Short_0 = 3fef 
  385. Short_1 = 3ff9 
  386. Short_2 = 4003 
  387. Short_3 = 400d 
  388. Short_4 = 4017 
  389. Short_5 = 4021 
  390. Short_6 = 402b 
  391. Short_8 = 403f 
  392. Short_0dh = 4071 
  393. Short_0eh = 407b 
  394. Short_0fh = 4085 
  395. Short_10h = 408f 
  396. Short_16h = 40cb 
  397. Short_1fh = 4125 
  398. Short_20h = 412f 
  399. Short_21h = 4139 
  400. Short_40h = 64bda 
  401. Short_7fh = 1cd16 
  402. Short_83h = 64d24 
  403. Pdim = 4b323 
  404. Equal2p = 6229a 
  405. Real_1 = 2a2c9 
  406. Real_2 = 2a2de 
  407. Real_3 = 2a2f3 
  408. Real_4 = 2a308 
  409. Real_5 = 2a31d 
  410. Real_7 = 2a347 
  411. Short_to_real = 18dbf 
  412. Start_1_to_N = 73db 
  413. Store_2lastlocal = 615f0 
  414. Store_3lastlocal = 61600 
  415. Store_4lastlocal = 61610 
  416. Store_lastlocal = 615e0 
  417. Store_local = 61625 
  418. Swap = 3223 
  419. Array_dims = 35a9 
  420. ToArray_real = 1d02c 
  421. ToArray_list = 1d040 
  422. Size_list = 567b 
  423. ToList = 5459 
  424. ToList2 = 631b9 
  425. TwoShorts_to_reals = 1950b 
  426. TwoReals_to_shorts = 194f7 
  427. Short_to_bin = 59cc 
  428. Swap_Over = 61380 
  429. Over = 32c2 
  430. Rot = 3295 
  431. Rolld3 = 60fac 
  432. Rolld4 = 6109e 
  433. Div2 = 3e8e 
  434. Div = 3ef7 
  435. Disp_any_real = 140ab 
  436. Disp_pitch8Str_line0 = 1245b 
  437. Disp_pitch8Str_line1 = 1246b 
  438. Disp_pitch8str_line2 = 1247b 
  439. Disp_pitch8str_line3 = 1248b 
  440. Disp_pitch8str_line4 = 1249b 
  441. Disp_pitch8str_line5 = 124ab 
  442. Disp_pitch8str_line6 = 124bb 
  443. Disp_pitch8str_line7 = 124cb 
  444.  
  445. Attach_Home_short = 7709 
  446.  
  447. Loop = 71a2 
  448. Exit_loop = 71e5 
  449. Until = 71c8 
  450. Next = 7334 
  451. If_ATTN_then_FlushKbd_Kill = 4243e 
  452. If_ATTN_then_End = 4245c 
  453. Pr1 = 318fe 
  454. Error_bad_arg_value = 18ca2 
  455. If_not_equal_then_short = 6336c 
  456.  
  457. Get_StkGrob = 12655 
  458. Repl_Grob_short = 11679 
  459.  
  460.  
  461. ;; ML routines 
  462.  
  463. getshort = 6641 
  464. get2shorts = 3f5d 
  465. pushshort_r0r1 = 6529 
  466. pushshort_r0_rplret= 18d0a 
  467. pushobj_a = 54266 
  468. pushobj_a_rplret = 6ec9 
  469. strlen_a = 120cc 
  470. strlen_d1 = 120cf 
  471. stralloc_nibbles = 5b7d 
  472. blkcopy = 670c 
  473. blkzero = 675c 
  474. save_regs = 679b 
  475. restore_regs = 67d2 
  476. rplcont = 71be 
  477. rr_rplcont = 5143 
  478. kbflush = 0xd57 
  479. indicate_not_busy = 42359 
  480. int_mask = 10e 
  481. uart_xmit = 116 
  482. adjust_parity = 3113d 
  483. uart_xmit_rdy_p = 310ca 
  484. recv_getc = 31289 
  485. calc_conf_crc = 9b73 
  486.  
  487. ATTN_p = 4988 
  488. clear_ATTN = 0xd8e 
  489.  
  490. start_of_stack = 7057e 
  491. keybuf = 704ea 
  492. graph_grob_ptr = 70565 
  493. stack_grob_ptr = 70556 
  494.  
  495. Copyright = ch^^d169 
  496. Beta = ch^^d223 
  497. CR = ch^015 
  498. LF = ch^012 
  499.  
  500.                         -- Jan Brittenson 
  501.                            bson@ai.mit.edu 
  502.